home *** CD-ROM | disk | FTP | other *** search
/ Elite European Models 1 / Elite European Models 1.iso / pc / elite.dxr / 00033.ls < prev    next >
Encoding:
Text File  |  1996-05-06  |  181 b   |  9 lines

  1. global gPictSprite, gCenterH, gCenterV
  2.  
  3. on mouseDown
  4.   if the timer > 20 then
  5.     zoomSprite(gPictSprite, point(gCenterH, gCenterV), gCenterH, gCenterV)
  6.   end if
  7.   startTimer()
  8. end
  9.